object ClientForm: TClientForm Left = 229 Top = 455 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Ident Client' ClientHeight = 155 ClientWidth = 360 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 10 Top = 15 Width = 25 Height = 13 Caption = 'Host:' end object Image1: TImage Left = 290 Top = 70 Width = 51 Height = 51 Hint = 'Written in Delphi 2.0 Developer' ParentShowHint = False Picture.Data = {} ShowHint = True Stretch = True end object Memo1: TMemo Left = 10 Top = 40 Width = 261 Height = 111 TabStop = False ReadOnly = True ScrollBars = ssVertical TabOrder = 4 end object Sockets1: TSockets Left = 15 Top = 45 Width = 28 Height = 28 MaximumReceiveLength = 8192 OnDataAvailable = Sockets1DataAvailable OnSessionClosed = Sockets1SessionClosed OnSessionConnected = Sockets1SessionConnected OnErrorOccurred = Sockets1ErrorOccurred end object BitBtn1: TBitBtn Left = 280 Top = 10 Width = 75 Height = 25 Caption = 'Query' TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B5555555555555557555555550000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 280 Top = 40 Width = 75 Height = 25 TabOrder = 2 OnClick = BitBtn2Click Kind = bkCancel end object Edit1: TEdit Left = 50 Top = 11 Width = 221 Height = 21 Hint = 'Enter the host (server) which you would like to query' ParentShowHint = False ShowHint = True TabOrder = 0 OnKeyDown = Edit1KeyDown end object BitBtn3: TBitBtn Left = 280 Top = 125 Width = 75 Height = 25 Caption = 'About' TabOrder = 3 OnClick = BitBtn3Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF33333333333777773333330000} NumGlyphs = 2 end end